home *** CD-ROM | disk | FTP | other *** search
/ Zoom 2 / Zoom - Release 2 (1996)(Active Software)[!].iso / utilities / blankers / swazblanker27 / install < prev    next >
Text File  |  1995-02-14  |  18KB  |  753 lines
  1. ; $VER: Install 2.7 (14.02.95)
  2. ; Script to install Release 2.7 SwazBlanker
  3. (complete 0)
  4.  
  5. (set @default-dest "RAM:")
  6. (set @default-popkey "Alt b")
  7. (set @default-blankkey "Alt z")
  8. (set @default-deletablemodules "NO")
  9. (set @default-classdir "SYS:Classes")
  10.  
  11. ;********************************************************************
  12.  
  13. (set #Yes-text
  14. (cat "Yes"
  15. ))
  16.  
  17. (set #No-text
  18. (cat "No"
  19. ))
  20.  
  21. (set #Proceed
  22. (cat     "Proceed"
  23. ))
  24.  
  25. (set #Skip-This-Part
  26. (cat     "Skip this part"
  27. ))
  28.  
  29. ;********************************************************************
  30.  
  31. (set #warn-kickstart-text
  32. (cat    "\nBAD VERSION OF KICKSTART\n\n"
  33.     "SwazBlanker requires KickStart 3.0 (V39) or higher. It will not work on earlier versions.\n"
  34.     "You currently are running KickStart V%ld.\n\n"
  35.     "Continue with installation?"
  36. ))
  37.  
  38. (set #warn-nospace-text
  39. (cat    "\nINSUFFICENT DISK SPACE\n\n"
  40.     "There is insufficient space on device %s: for a full installation of SwazBlanker.\n"
  41.     "\n"
  42.     "Required space : 1000 Kb\n"
  43.     "Available space : %ld Kb\n"
  44.     "\n"
  45.     "Do you want to continue with the installation?"
  46. ))
  47.  
  48. ;********************************************************************
  49.  
  50. (set #path-text
  51. (cat "Where would you like SwazBlanker installed?\n A drawer named 'SwazBlanker' will be created here."
  52. ))
  53.  
  54. (set #path-help
  55. (cat "In this location a drawer will be created. All files except the libraries will be installed inside this drawer. The complete installation will require about 1MB of free disk space.\n\n"
  56.      @askdir-help
  57. ))
  58.  
  59. ;********************************************************************
  60.  
  61. (set #version-checking-text
  62. (cat    "Checking for previously installed SwazBlanker"
  63. ))
  64.  
  65. (set #version-installed-text
  66. (cat    "\nSwazBlanker ALREADY INSTALLED\n"
  67.     "\n"
  68.     "Continue with installation?"
  69. ))
  70.  
  71. ;********************************************************************
  72.  
  73. (set #dirs-build-text
  74. (cat "Building directory structure"
  75. ))
  76.  
  77. ;********************************************************************
  78.  
  79. (set #libs-working-text
  80. (cat "Installing libraries..."
  81. ))
  82.  
  83. (set #libs-installlib-text
  84. (cat "Installing %s..."
  85. ))
  86.  
  87. (set #libs-query-text
  88. (cat "\nInstalling %s\n\n"
  89.      "Version %ld.%ld is currently installed.\n"
  90.      "Would you like to install version %ld.%ld?"
  91. ))
  92.  
  93. (set #libs-help
  94. (cat "It will be necessary to install the most recent available versions "
  95.      "of the libraries required by SwazBlanker for it to function."
  96. ))
  97.  
  98. ;********************************************************************
  99.  
  100. (set #main-copy-text
  101. (cat "Installing SwazBlanker executable"
  102. ))
  103.  
  104. ;********************************************************************
  105.  
  106. (set #module-install-text
  107. (cat "Installing blanker modules"
  108. ))
  109.  
  110. (set #module-which-text
  111. (cat "Which Blankers should be installed?"
  112. ))
  113.  
  114. (set #module-which-help
  115. (cat "Select the blankers you wish to have installed"
  116.      "\n\n" @askoptions-help
  117. ))
  118.  
  119. ;********************************************************************
  120.  
  121. (set #offense-query-text
  122. (cat "\nDATA FILES for Headlines and/or Quotes Blanker\n\n"
  123.  
  124.      "You may wish to install additional data files for "
  125.      "Headlines and/or Quotes Blanker.\n\n"
  126.  
  127.      "These data files may CONTAIN MATERIAL that is OFFENSIVE to some "
  128.      "people. You have been given a choice to install them or not.\n\n"
  129.      "Do you wish to install these files?"
  130. ))
  131.  
  132. (set #offense-help
  133. (cat "Please examine the data files if you are unsure if you will find them offensive."
  134. ))
  135.  
  136. (set #offense-warning
  137. (cat "These files may contain offensive material, install at your own risk."
  138. ))
  139.  
  140. (set #headlines-text
  141. (cat "\nInstall additional data files for headlines? "
  142.      #offense-warning
  143. ))
  144.  
  145. (set #quotes-text
  146. (cat "\nInstall additional data files for headlines? "
  147.      #offense-warning
  148. ))
  149.  
  150. ;********************************************************************
  151.  
  152. (set #module-install-data-text
  153. (cat "Installing blanker data"
  154. ))
  155.  
  156. ;********************************************************************
  157.  
  158. (set #classes-install-text
  159. (cat "Installing gadget classes"
  160. ))
  161.  
  162. (set #classes-query-text
  163. (cat    "\nINSTALL GADGET CLASSES\n"
  164.     "\nYou need to have the tabs.gadget and textfield.gadget classes installed.\n\n"
  165.     "These should be located in \"" @default-classdir "\" but if you have them "
  166.     "installed somewhere else then you may chose to install them there.\n"
  167.     "\nContinue with installation of gadget classes?"
  168. ))
  169.  
  170. (set #classes-query-help
  171. (cat "These gadget classes are required by several blanker modules. It is recommended that you install them.\n\n"
  172. ))
  173.  
  174. (set #classes-where-text
  175. (cat "Where do the Classes belong?"
  176. ))
  177.  
  178. (set #classes-copy-tabsgadget
  179. (cat "Installing tabs.gadget"
  180. ))
  181.  
  182. (set #classes-copy-textfieldgadget
  183. (cat "Installing textfield.gadget"
  184. ))
  185.  
  186.  
  187. ;********************************************************************
  188.  
  189. (set #lang-install-text
  190. (cat "Installing locale catalogs"
  191. ))
  192.  
  193. (set #lang-which-text
  194. (cat "Which languages should be installed?"
  195. ))
  196.  
  197. (set #lang-which-help
  198. (cat "Check the boxes of the languages you wish to have available with SwazBlanker."
  199.      "\n\n" @askoptions-help
  200. ))
  201.  
  202. ;********************************************************************
  203.  
  204. (set #docs-install-text
  205. (cat "Installing documentation"
  206. ))
  207.  
  208. (set #docs-query-text
  209. (cat "\nWould you like to install full documentation for SwazBlanker?\n\n"
  210.      "This consists of documentation for the main program and all blanker modules and also some"
  211.      " example source code. Also the catalog translation files will also be installed."
  212. ))
  213. (set #docs-query-help
  214. (cat "You may need help or just want to know a bit about SwazBlanker, it is "
  215.      "recommended that you install all documentation."
  216. ))
  217.  
  218. ;********************************************************************
  219.  
  220. (set #prog-install-text
  221. (cat "Installation of programming documentation.\n\n"
  222. ))
  223.  
  224. (set #prog-query-text
  225. (cat    "\nWould you like to install programming files for SwazBlanker?\n\n"
  226.     "This consists of includes, autodocs and a fd file."
  227. ))
  228.  
  229. (set #prog-query-help
  230. (cat    "If you wish to install the include's and fd's select YES otherwise select NO"
  231. ))
  232.  
  233. (set #prog-include-text
  234. (cat    "Please select the directory where your INCLUDE files are stored"
  235. ))
  236. (set #prog-include-help
  237. (cat    "This is wher ethe SwazBlanker includes will be stored\n\n"
  238.          @askdir-help
  239. ))
  240.  
  241. (set #prog-fd-query-text
  242. (cat    "\nWould you like to install the FD file for swazblanker.library?"
  243. ))
  244.  
  245. (set #prog-fd-query-help
  246. (cat    "If you wish to install the fd's select YES otherwise select NO"
  247. ))
  248.  
  249. (set #prog-fd-text
  250. (cat    "Please select the directory where your FD files are stored"
  251. ))
  252.  
  253. (set #prog-fd-help
  254. (cat    "Just set the path to where you keep your fd files!\n\n"
  255.     @askdir-help
  256. ))
  257.  
  258. (set #prog-autodoc-query-text
  259. (cat    "\nWould you like to install the AUTODOC file for swazblanker.library?"
  260. ))
  261.  
  262. (set #prog-autodoc-query-help
  263. (cat    "If you wish to install the autodoc's select YES otherwise select NO"
  264. ))
  265.  
  266. (set #prog-autodoc-text
  267. (cat    "Please select the directory where your AUTODOC files are stored"
  268. ))
  269.  
  270. (set #prog-autodoc-help
  271. (cat    "Just set the path to where you keep your autodoc files!\n\n"
  272.     @askdir-help
  273. ))
  274.  
  275. ;********************************************************************
  276.  
  277. (set #prefs-setup-text
  278. (cat    "Configure the default settings"
  279. ))
  280.  
  281. (set #popkey-text
  282. (cat    "\nYou may now specify the pop key to open the SwazBlanker interface.\n"
  283. ))
  284. (set #popkey-help
  285. (cat    "This key combination will opem the SwazBlanker interface so you may configure SwazBlanker.\n"
  286.     "\nExamples: Alt b, Alt z, Ctrl F1, Shift F10"
  287. ))
  288.  
  289. (set #blankkey-text
  290. (cat    "\nYou may now specify the hot key combination to blank the screen.\n"
  291.     "This should not be the same as you specified for the pop key."
  292. ))
  293.  
  294. (set #blankkey-help
  295. (cat    "This key combination will blank the screen.\n"
  296.     "\nExamples: Alt z, Alt b, Ctrl F1, Shift F10"
  297. ))
  298.  
  299. (set #deletablemodules-text
  300. (cat    "\nWould you like to enable the DEL key to be able to delete"
  301.     " the modules from your disk."
  302. ))
  303.  
  304. (set #deletablemodules-help
  305. (cat    "Pressing DEL with a module hilighted in the SwazBlanker preferences will"
  306.     " delete the module from your disk (you will be prompted to confirm this)."
  307. ))
  308.  
  309. (set #prefs-writing-tooltypes-text
  310. (cat    "Writing tooltypes"
  311. ))
  312.  
  313. ;********************************************************************
  314.  
  315. (set #pos-icons-text
  316. (cat "Positioning icons"
  317. ))
  318.  
  319. ;********************************************************************
  320.  
  321. (set #goodbye
  322. (cat "\nPlease remember that SwazBlanker is SHAREWARE.\n\n"
  323.      "If you use this program you should register by sending $10 US ($20 NZ) to:\n\n"
  324. ))
  325.  
  326. (set #my-address
  327. (cat    "David Swasbrook,\n"
  328.     "PO Box 54134,\n"
  329.     "Bucklands Beach,\n"
  330.     "Auckland,\n"
  331.     "NEW ZEALAND.\n"
  332. ))
  333.  
  334. ;********************************************************************
  335. ;**** END OF TEXT
  336. ;********************************************************************
  337.  
  338.  
  339. ;********************************
  340. ;**** CHECK THE KICKSTART VERSION
  341. ;****
  342. (set ver (/ (getversion) 65536) )
  343. (if (< ver 39) (
  344.     (set warning (#warn-kickstart-text ver) ) (message warning)
  345. ))
  346.  
  347. ;******************************
  348. ;**** CHECK THE DESTINATION DIR
  349. ;****
  350. (set target
  351. (askdir (prompt #path-text) (help #path-help) (default @default-dest) (newpath)
  352. ))
  353. (set target (tackon target "SwazBlanker"))
  354. (set devname (getdevice target))
  355.  
  356. (if (NOT (= "RAM"  devname) )    (
  357.     (set space (/ (getdiskspace (cat devname ":")) 1024) )
  358.     (if (> 1000 space) ( (set warning (#warn-nospace-text devname space) ) (message warning) )
  359.     )
  360. ))
  361.  
  362. ;******************************
  363. ;**** LOOK FOR OLD VERSION
  364. ;****
  365. (complete 5) (working #version-checking-text)
  366.  
  367. (if (exists (tackon target "SwazBlanker")) (
  368.     (set warning (#version-installed-text ) ) (message warning)
  369. ))
  370.  
  371. (set @default-dest target)
  372.  
  373. ;******************************
  374. ;**** SETUP DIRECTORIES
  375. ;****
  376.  
  377. (complete 10) (working #dirs-build-text)
  378. (complete 11) (makedir (infos) target)
  379. (complete 12) (makedir (tackon target "blankers"))        
  380. (complete 13) (makedir (tackon target "blankers/data"))
  381. (complete 13) (makedir (tackon target "blankers/data/headlines"))
  382. (complete 13) (makedir (tackon target "blankers/data/quotes"))
  383. (complete 14) (makedir (tackon target "docs"))
  384. (complete 15) (copyfiles (source "") (dest target) (choices "blankers.info" "docs.info") )
  385. (complete 16) (copyfiles (source "blankers") (dest (tackon target "blankers")) (choices "data.info") )
  386.  
  387.  
  388. ;******************************
  389. ;**** INSTALL LIBRARIES
  390. ;****
  391. (complete 20) (working #libs-working-text)
  392.  
  393. (procedure INSTALLLIB
  394.  
  395. (set warning (#libs-installlib-text libname ))
  396. (working warning)
  397.  
  398. (set Version (getversion (tackon "misc/libs" libname)) )
  399. (set newVer (/ Version 65536))
  400. (set newRev (- Version (* newVer 65536)))
  401.  
  402. (set Version (getversion (tackon "libs:" libname) ))
  403. (if (= Version 0)
  404.     (
  405.         (set instlib 1)    
  406.     )
  407.  
  408.     (
  409.         (set oldVer (/ Version 65536))
  410.         (set oldRev (- Version (* newVer 65536)))
  411.  
  412.         (set instlib 0)
  413.         (set verify 0)
  414.  
  415.         (if(< oldVer newVer)
  416.             (set verify 1)
  417.         )
  418.     
  419.         (if(= oldVer newVer)
  420.             (if (< oldRev newRev)
  421.                 (set verify 1)
  422.               )
  423.         )
  424.  
  425.         (if(= verify 1)
  426.         (    (set warning (#libs-query-text libname oldVer oldRev newVer newRev))
  427.             (set instlib (askbool (prompt warning) (help #libs-help)) )
  428.         ))
  429.     )
  430. )
  431.  
  432. (if instlib
  433.     (copyfiles (prompt "Copying " libname ) (help @copyfiles-help)
  434.         (source (tackon "misc/libs" libname) ) (dest "libs:") (choices libname )
  435. ))
  436.  
  437. )
  438.  
  439. (complete 21)    (set libname "swazblanker.library")    (INSTALLLIB)
  440. (complete 23)    (set libname "matrix.library")    (INSTALLLIB)
  441.  
  442.  
  443. ;******************************
  444. ;**** GADGET CLASSES
  445. ;****
  446. (complete 25) (working #classes-install-text)
  447.  
  448. (if
  449. (=
  450.   (askbool (prompt #classes-query-text) (help #classes-query-help) (choices #Proceed #Skip-This-Part) )
  451.   1)
  452.  
  453. (
  454.  
  455. (set classdir
  456. (askdir    (prompt #classes-where-text )
  457.     (help @askdir-help )
  458.     (default @default-classdir )
  459. ))
  460.  
  461. (complete 27)
  462.  
  463. (copylib
  464.     (prompt #classes-copy-tabsgadget )
  465.     (help @copylib-help)
  466.     (source "misc/gadgets/tabs.gadget")
  467.     (dest (tackon classdir "Gadgets"))
  468.     (confirm)
  469. )
  470.  
  471. (complete 29)
  472.  
  473. (copylib
  474.     (prompt #classes-copy-textfieldgadget )
  475.     (help @copylib-help)
  476.     (source "misc/gadgets/textfield.gadget")
  477.     (dest (tackon classdir "Gadgets"))
  478.     (confirm)
  479. )
  480.  
  481. ))
  482.  
  483. ;******************************
  484. ;**** COPY MAIN PROGRAM
  485. ;****
  486.  
  487. (complete 30) (working #main-copy-text)
  488. (copyfiles (prompt "Copying to " #target ) (help @copyfiles-help) (source "") (dest (cat target) )
  489.     (choices "SwazBlanker" "SwazBlanker.info" )
  490. )
  491.  
  492.  
  493.  
  494. ;******************************
  495. ;**** COPY BLANKER MODULES
  496. ;****
  497. (complete 35) (working #module-install-text)
  498.  
  499. (copyfiles
  500.     (prompt #module-which-text)
  501.     (help #module-which-help)
  502.     (source "blankers/" )
  503.     (dest (tackon target "blankers" ) )
  504.     (pattern "~#?.info")
  505.     (files )
  506.     (infos )
  507.     (optional "nofail")
  508.     (confirm)
  509. )
  510.  
  511. ;******************************
  512. ;**** COPY MODULE DATA
  513. ;****
  514.  
  515.  
  516. (if (exists (tackon target "blankers/headlines"))
  517.     (set Headlines 1)
  518.     (set Headlines 0)
  519. )
  520.  
  521. (if (exists (tackon target "blankers/quotes"))
  522.     (set Quotes 1)
  523.     (set Quotes 0)
  524. )
  525.  
  526.  
  527.  
  528. (complete 50) (working #module-install-data-text)
  529.  
  530.  
  531.  
  532. (if Headlines
  533.     (copyfiles
  534.         (prompt    #ask-blankers)
  535.         (help    #ask-blankers-help)
  536.         (source    "blankers/data/headlines" )
  537.         (dest    (tackon target "blankers/data/headlines"))
  538.         (all)
  539.         (infos)
  540.     )
  541. )
  542.  
  543. (complete 53)
  544. (if Quotes
  545.     (copyfiles
  546.         (prompt    #ask-blankers)
  547.         (help    #ask-blankers-help)
  548.         (source    "blankers/data/quotes" )
  549.         (dest    (tackon target "blankers/data/quotes"))
  550.         (all)
  551.         (infos)
  552.     )
  553. )
  554.  
  555. ;******************************
  556. ;**** COPY ADDITIONAL DATA FILES
  557. ;****
  558. (complete 55)
  559.  
  560. (set Offense 0)
  561. (if Quotes (set Offense (+ Offense 1 ) ) )
  562. (if Headlines (set Offense (+ Offense 1 ) ) )
  563.  
  564. (if Offense
  565. (if(= (askbool (prompt #offense-query-text) (help #offense-help) (choices #Yes-text #No-text) (default 0) ) 1)
  566.     (
  567.  
  568.     (complete 56)
  569.     (copyfiles
  570.         (prompt #headlines-text)
  571.         (help "???")
  572.         (source "misc/data/headlines/")
  573.         (dest (tackon target "blankers/data/headlines") )
  574.         (all)
  575.         (infos)
  576.         (confirm)
  577.     )
  578.  
  579.     (complete 58)
  580.     (copyfiles
  581.         (prompt #quotes-text)
  582.         (help "???")
  583.         (source "misc/data/quotes/")
  584.         (dest (tackon target "blankers/data/quotes") )
  585.         (all)
  586.         (infos)
  587.         (confirm)
  588.     )
  589.  
  590. )))
  591.  
  592. ;******************************
  593. ;**** LOCALE
  594. ;****
  595.  
  596. (set def-lang 0)
  597.  
  598. (complete 60) (working #lang-install-text)
  599.  
  600. (set lang
  601. (askoptions (prompt #lang-which-text) (help #lang-which-help) (default def-lang)
  602.         (choices "deutsch" "suomi")
  603. ))
  604.  
  605. (complete 63)
  606. (if lang (
  607.     (set n 0)
  608.     (while    (set language
  609.         (select n "deutsch" "suomi" ""
  610.         ))
  611.     (
  612.         (if (IN lang n) (
  613.                 (makedir (cat "LOCALE:catalogs/" language  ) )
  614.                 (makedir (cat "LOCALE:catalogs/" language "/matrix" ) )
  615.                 (makedir (cat "LOCALE:catalogs/" language "/matrix/swazblanker" ) )
  616.  
  617.                 ;******************************
  618.                 ;**** >>> CATALOGS >>>
  619.                 ;****
  620.                 (copyfiles
  621.                     (source (cat "misc/locale/" language "/catalogs/") )
  622.                     (dest (cat "LOCALE:catalogs/" language "/matrix/swazblanker" ) )
  623.                     (pattern "#?")
  624.                     (optional "nofail")
  625.                 )
  626.                 ;******************************
  627.                 ;**** >>> LOCALE DATA >>>
  628.                 ;****
  629.                 (if (exists (cat "misc/locale/" language "/data/"))
  630.                 (copyfiles
  631.                     (source (cat "misc/locale/" language "/data/") )
  632.                     (dest (tackon target "blankers/data/") )
  633.                     (all)
  634.                     (infos)
  635.                 
  636.                 ))
  637.  
  638.  
  639.                   )
  640.         )
  641.         (set n (+ n 1))
  642.     ))
  643. ))
  644.  
  645.  
  646. ;******************************
  647. ;**** DOCUMENTATION
  648. ;****
  649. (complete 65) (working #docs-install-text)
  650.  
  651. (if(= (askbool (prompt #docs-query-text) (help #docs-query-help)) 1)
  652.     (copyfiles (source "docs/") (dest (tackon target "docs" ) ) (infos) (all)
  653.     )
  654. )
  655.  
  656.  
  657. ;******************************
  658. ;**** INCLUDES
  659. ;****
  660.  
  661. (complete 70) (working #prog-install-text)
  662.  
  663. (if(= (askbool (prompt #prog-query-text) (help #prog-query-help)) 1)
  664. (
  665.     (set Path
  666.     (askdir (prompt #prog-include-text) (help #prog-include-help) (default "Include:") (newpath)
  667.     ))
  668.  
  669.     (copyfiles (source "misc/include") (dest Path ) (all)
  670.     )
  671.  
  672.     (complete 75)
  673.  
  674.     (if(= (askbool (prompt #prog-fd-query-text) (help #prog-fd-query-help)) 1)
  675.     (
  676.         (set Path
  677.         (askdir (prompt #prog-fd-text) (help #prog-fd-help) (default "fd:") (newpath)
  678.         ))
  679.         (copyfiles (source "misc") (dest Path ) (choices "SwazBlanker_lib.fd")
  680.         )
  681.     ))
  682.  
  683.     (complete 77)
  684.  
  685.     (if(= (askbool (prompt #prog-autodoc-query-text) (help #prog-autodoc-query-help)) 1)
  686.     (
  687.         (set Path
  688.         (askdir (prompt #prog-autodoc-text) (help #prog-autodoc-help) (default "autodoc:") (newpath)
  689.         ))
  690.         (copyfiles (source "misc") (dest Path) (choices "SwazBlanker.doc")
  691.         )
  692.     ))
  693.  
  694. ))
  695.  
  696. ;******************************
  697. ;**** TOOL TYPES
  698. ;****
  699.  
  700. (complete ) (working #prefs-setup-text)
  701.  
  702. (complete 80)
  703. (set cxPopKey
  704. (askstring (prompt #popkey-text) (help #popkey-help) (default @default-popkey)
  705. ))
  706.  
  707. (complete 84)
  708. (set cxBlankKey
  709. (askstring (prompt #blankkey-text) (help #blankkey-help) (default @default-blankkey)
  710. ))
  711.  
  712.  
  713. (complete 88)
  714. (if(= (askbool (prompt #deletablemodules-text) (help #deletablemodules-help) (choices #Yes-text #No-text) (default 0) ) 1)
  715.     (set tooltype_deletablemodules (cat "YES")
  716.     )
  717.     (set tooltype_deletablemodules (cat "NO")
  718.     )
  719. )
  720.  
  721.  
  722. (complete 90) (working #prefs-writing-tooltypes-text)
  723.  
  724. (tooltype    (dest (tackon target "SwazBlanker") )
  725.     (settooltype "DELETABLEMODULES" tooltype_deletablemodules )
  726.     (settooltype "DEFBLANKERPATH" (cat "\"" (tackon target "blankers") "\"") )
  727.     (settooltype "DOCPATH" (cat "\"" (tackon target "docs") "\"") )
  728.     (settooltype "HELPFILE" (cat "\"SwazBlanker.guide\"") )
  729.     (settooltype "BLANKKEY" cxBlankKey )
  730.     (settooltype "CX_POPKEY" cxPopKey )
  731.     (settooltype "CX_POPUP" "NO" )
  732.     (settooltype "CX_PRIORITY" "0" )
  733.     (settooltype "DONOTWAIT" )
  734. )
  735.  
  736. ;******************************
  737. ;**** POSITIONING ICONS
  738. ;****
  739.  
  740. (procedure UNSNAPICONS
  741.     (foreach unsnap "#?" (tooltype (dest (tackon unsnap @each-name) ) (noposition) )
  742.     )
  743. )
  744.  
  745. (complete 95)    (working #pos-icons-text)
  746. (complete 96)    (set unsnap target)            (UNSNAPICONS)
  747. (complete 97)    (set unsnap (tackon target "docs"))    (UNSNAPICONS)
  748. (complete 98)    (set unsnap (tackon target "blankers"))    (UNSNAPICONS)
  749. (complete 99)    (set unsnap (tackon target "blankers/data")) (UNSNAPICONS)
  750.  
  751. (complete 100) (message #goodbye #my-address)
  752.  
  753.